home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / config.idesk < prev    next >
Text File  |  1995-08-20  |  775b  |  34 lines
  1. /* --------------------- standard startup ----------------------- */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. if( ADDRESS() ~= "IDESK_REXXPORT" ) then
  6.     ADDRESS IDESK_REXXPORT
  7.  
  8. /* -------------------------------------------------------------- */
  9.  
  10. SPWIN
  11. if( rc ~= 0 )
  12.     then CALL CHECKABORT
  13. VPWIN
  14. if( rc ~= 0 )
  15.     then CALL CHECKABORT
  16. TPWIN
  17. if( rc ~= 0 )
  18.     then CALL CHECKABORT
  19.  
  20. SAVEPREFS "ImageDesk.idprefs"
  21. if( rc = 0 )
  22.     then IDREQUEST "OK" '"Config has been saved successfully'||'0A'x||'Please select >Quit< from the menu"'
  23.     else ERRORMSG '"An Error occured while saving the config"'
  24. EXIT
  25.  
  26. CHECKABORT: PROCEDURE
  27. IDREQUEST "OK|CANCEL" '"Do You want abort the config procedure?"'
  28. if( result = 1 )
  29. then do
  30.     IDREQUEST "OK" '"Please select >Quit< from the menu"'
  31.     EXIT
  32. end
  33. RETURN 0
  34.